home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8708a.d64 / hirn 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  95 lines
  1. 0 REM *********************************
  2. 1 REM *                               *
  3. 2 REM *       **  HIRN 64  **         *
  4. 3 REM *                               *
  5. 4 REM *           1986 BY             *
  6. 5 REM *        WILHELM TODTER         *
  7. 6 REM *       EISENHANDSTR. 23        *
  8. 7 REM *         A-4020 LINZ           *
  9. 8 REM *                               *
  10. 9 REM *********************************
  11. 10 REM
  12. 11 REM *      HYPRA-BASIC MODULE:                   2, 3, 21, 31, 34, ??71??
  13. 12 REM
  14. 100 POKE53280,6:POKE53281,6:POKE646,7:AW=RND(-TI):PRINTCHR$(14)
  15. 109 REM * ERWEITERUNG LADEN UND STARTEN
  16. 110 IFPEEK(49152)=169ANDPEEK(49153)=11ANDPEEK(49154)=141ANDPEEK(49155)=8THEN130
  17. 120 PRINTCHR$(147);"[204]OADING ...":LOAD"HIRN.ERW",8,1
  18. 129 REM * VARIABLE VORDEFINIEREN
  19. 130 SYS49152:JO=56320:SP=14:ZL=22:FE=0:FB=8:FA=1:DIMFA(6),FE(4)
  20. 132 P1$=CHR$(5)+"^":P2$=CHR$(5)+"_":LI$=CHR$(155)+"[192]"
  21. 140 FORI=1TO6:READFA(I):NEXT
  22. 141 DATA 7,2,4,14,3,5
  23. 150 T1$="[158]*[200][156][201][154][210][159][206]*":T2$="*[159]+[154]6[156]4+[158]*":T3$="[158]*H[156]I[154]R[159]N*"
  24. 160 LE$="                                       "
  25. 199 REM * TITELBILD
  26. 200 PRINTCHR$(147):FRAME0:BACK0:PEN15:RECLOW0,0,40,25,15:RECLOW1,1,38,23,15
  27. 210 BIG4,8,T1$:BIG9,8,T2$:SET9,15,"1986 BY [215]ILHELM [212]ODTER":INVERS14,8,16,31
  28. 220 SET8,19,"[208]RESS <[210][197][212][213][210][206]> TO START":BLINK 19,14,19,21,200
  29. 230 GETI$:IFI$<>CHR$(13)THEN220
  30. 299 REM * SPIELFELDAUFBAU
  31. 300 PRINTCHR$(142);CHR$(147):PEN15
  32. 310 SET15,0,"[176][192][178][192][178][192][178][192][174]":SET15,1,"[221]?[155][221]?[155][221]?[155][221]?[155][221]"
  33. 320 FORI=2TO20STEP2:SET15,I,"[171][192][219][192][219][192][219][192][179]":SET15,I+1,"[221][215][221][215][221][215][221][215][221]":NEXT
  34. 330 SET15,22,"[173][192][177][192][177][192][177][192][189]":PEN1:SET6,1,"*WT*";:SET30,1,"*86*";
  35. 340 FORI=0TO5:BIGI*4,0,MID$(T3$,2*I+1,2):BIGI*4,36,MID$(T2$,2*I+1,2):NEXT
  36. 350 FORI=0TO5:PENFA(I+1):SET8,8+I,CHR$(175):NEXT:INVERS8,8,13,8
  37. 360 PEN1:SETSP,ZL,"^":SET9,FB,"_":PEN15
  38. 362 SE$="*LOESCHEN*":FORI=1TO10:SET13,2*I,MID$(SE$,I,1):NEXT:SLINE1,12,21,15
  39. 364 SE$="*BEWERTEN*":FORI=1TO10:SET25,2*I,MID$(SE$,I,1):NEXT:SLINE1,26,21,15
  40. 369 REM * FARBCODE DURCH ZUFALLSZAHLEN
  41. 370 SE$="* ICH LOSE DIE FARBEN AUS *":GOSUB1000
  42. 380 FORI=1TO4:CO(I)=FA(INT(6*RND(1))+1):NEXT
  43. 400 PEN15:SE$="* AUF GEHT'S! *":GOSUB1000
  44. 409 REM * EINGABESCHLEIFE
  45. 410 DO:JY=PEEK(JO):GETSE$:IFSP<>24THEN:SET24,ZL,CHR$(32)
  46. 412 IFSP<>14THEN:SET14,ZL,CHR$(32)
  47. 419 REM * FELDAUSWAHL
  48. 420 IFJY=123ANDSP>14THENSP=SP-2:SETSP,ZL,P1$:FE=FE-1:IFSP<22THEN:SETSP+2,ZL,LI$
  49. 430 IFJY=119ANDSP<24THENSP=SP+2:SETSP,ZL,P1$:FE=FE+1:IFSP>16THEN:SETSP-2,ZL,LI$
  50. 439 REM * FARBAUSWAHL
  51. 440 IFJY=126ANDFB>8THENFB=FB-1:SET9,FB,P2$:SET9,FB+1,CHR$(32):FA=FA-1
  52. 450 IFJY=125ANDFB<13THENFB=FB+1:SET9,FB,P2$:SET9,FB-1,CHR$(32):FA=FA+1
  53. 460 LOOP UNTIL JY<119ORSE$=CHR$(133)
  54. 464 REM * F1 = AUFGABE
  55. 465 IFSE$=CHR$(133)THEN800
  56. 469 REM * FARBE SETZEN
  57. 470 IFSP>14ANDSP<24THEN:PENFA(FA):SETSP,ZL-1,"[209]";:FE(FE)=FA(FA):GOTO410
  58. 480 IFSP=14THEN:PEN15:SET16,ZL-1,"[215][215][215][215]":FORI=1TO4:FE(I)=0:NEXT:GOTO410
  59. 499 REM * AUSWERTUNG EINER ZEILE
  60. 500 SE$="* MAL SEHEN ... *":GOSUB1000
  61. 509 REM * NICHT ALLE FELDER GESETZT
  62. 510 FL=0:FORI=1TO4:IFFE(I)=0THENFL=1
  63. 520 NEXT:IFFL=1THEN:SE$="* SO ABER NICHT!! *":GOSUB1000:GOTO400
  64. 529 REM * CODEZEILE KOPIEREN
  65. 530 FORI=1TO4:FV(I)=CO(I):NEXT
  66. 539 REM * FARBE UND POSITION RICHTIG
  67. 540 FW=0:FORI=1TO4:IFFE(I)=FV(I)THENFW=FW+1:FE(I)=0:FV(I)=-1
  68. 542 NEXT:IFFW>0THEN:PEN1:FORI=1TOFW:SET28+I,ZL-1,"*":NEXT
  69. 549 REM * NUR FARBE RICHTIG
  70. 550 FG=0:FORI=1TO4:FORJ=1TO4:IFFE(I)=FV(J)THENFG=FG+1:FE(I)=0:FV(J)=-1
  71. 552 NEXT:NEXT:IFFG>0THEN:PEN15:FORI=1TOFG:SET28+FW+I,ZL-1,"+":NEXT
  72. 560 SP=16:ZL=ZL-2:PEN1:SET24,ZL+2,CHR$(32):FE=1
  73. 569 REM * SPIEL BEENDET?
  74. 570 IFFW<4ANDZL>2THEN:SETSP,ZL,"^":GOTO400
  75. 579 REM * SPIELENDE - CODE ZEIGEN
  76. 580 FORI=1TO4:PENCO(I):SET14+2*I,1,"[209]":NEXT:IFFW=4THEN600
  77. 589 REM * VERLOREN
  78. 590 PEN15:SE$="* MEIN TIP: UEBEN, UEBEN ... *":GOSUB1000:GOSUB1100:RUN
  79. 599 REM * GEWONNEN
  80. 600 PEN15:IFZL=20THENSE$="* PH! REINER ZUFALL! *"
  81. 610 IFZL=18ORZL=16THENSE$="* NA JA, MIT GLUECK... *"
  82. 620 IFZL=14ORZL=12THENSE$="* BIST JA EIN MITDENKER! *"
  83. 630 IFZL=10ORZL=8THENSE$="* AUCH NICHT SCHLECHT! *"
  84. 640 IFZL=6ORZL=4ORZL=2THENSE$="* DAS GEHT NOCH BESSER! *"
  85. 650 GOSUB1000:GOSUB1100:RUN
  86. 799 REM * AUFGEGEBEN
  87. 800 FORI=1TO4:PENCO(I):SET14+2*I,1,"[209]":NEXT
  88. 810 PEN15:SE$="* AUFGEGEBEN *":GOSUB1000:GOSUB1100:RUN
  89. 999 REM * KOMMENTARZEILE AUSGEBEN
  90. 1000 SET0,24,LE$;:SET20-LEN(SE$)/2,24,SE$;:POKE162,200
  91. 1010 IFPEEK(162)THEN1010
  92. 1020 RETURN
  93. 1099 REM * KOMMENTARZEILE BLINKEN
  94. 1100 BLINK24,19-LEN(SE$)/2,24,21+LEN(SE$)/2,200:RETURN
  95.